home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Tools / Alpha 6.51b13 ƒ / Tcl / UserCode / setAwkMode.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  42 lines
  1. # FILE: setAwkMode.tcl
  2. #
  3. # LAST UPDATE: 01/07/93 8:33:33 AM
  4. #
  5. # This file contains the following TCL procedure(s):
  6. #
  7. #    setAwkMode -- used with changeMode & AWK programming language
  8.  
  9. # COPYRIGHT:
  10. #
  11. #    Copyright © 1993 by David C. Black
  12. #    All rights reserved.
  13. #
  14. #    Redistribution and use in source and binary forms are permitted
  15. #    provided that the above copyright notice and this paragraph are
  16. #    duplicated in all such forms and that any documentation,
  17. #    advertising materials, and other materials related to such
  18. #    distribution and use acknowledge that the software was developed
  19. #    by David C. Black.
  20. #
  21. #    THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
  22. #    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23. #    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24. #
  25. ################################################################################
  26.  
  27. # Awk programming mode
  28. proc setAwkMode {} {
  29.     changeMode "Awk"
  30.     uplevel #0 {
  31.         set elecLBrace 0
  32.         set elecRBrace 0
  33.         set electricSemi 0
  34.         set wordWrap 0
  35.         set funcTitle "Func"
  36.         set funcExpr {^#?:?function *([a-zA-Z0-9_]*)\(}
  37.         set funcPar 1
  38.         set sortedIsDefault 0
  39.         set prefixString "# "
  40.     }
  41. }
  42.